home *** CD-ROM | disk | FTP | other *** search
/ Merciful 2 / Merciful - Disc 2.iso / software / d / dpaintv5_2program.dms / dpaintv5_2program.adf / Deutsch-DeluxePaintV < prev    next >
Text File  |  1994-10-21  |  17KB  |  506 lines
  1. ; $Id: Install-DeluxePaintV,v 1.7 94/08/10 15:58:27 lee Exp $
  2. ; $VER: Install-DeluxePaintV 1.7
  3. ;
  4. ; Copyright (c) 1994 Electronic Arts, Inc. All Rights Reserved.
  5.  
  6. (set app_prefix "DPaintV_")
  7. (set app_disk1  "Install")
  8. (set app_disk2  "Media")
  9. (set app_disk3  "Examples")
  10. (set app_disk4  "Extras")
  11.  
  12. (set app_volume1 (cat app_prefix app_disk1 ":"))
  13. (set app_volume2 (cat app_prefix app_disk2 ":"))
  14. (set app_volume3 (cat app_prefix app_disk3 ":"))
  15. (set app_volume4 (cat app_prefix app_disk4 ":"))
  16.  
  17. (set expert_user_level 2)
  18. (set orig_user_level @user-level)
  19.  
  20. ; standard amiga error codes
  21. (set RC_OK     0
  22.      RC_WARN   5
  23.      RC_ERROR 10
  24.      RC_FATAL 20
  25.      )
  26.  
  27. ; program install options
  28. (set INSTF_DPAINT  1
  29.      INSTF_DPLAYER 2)
  30.  
  31.  
  32. ;
  33. ; determine AmigaDos version and revision numbers
  34. ;
  35. (set AmigaDos_Number   (getversion))
  36. (set AmigaDos_Version  (/ AmigaDos_Number 65536))
  37. (set AmigaDos_Revision (- AmigaDos_Number (* AmigaDos_Version 65536)))
  38.  
  39. ;
  40. ; set up some message strings
  41. ;
  42. (set format_msg
  43.    (cat
  44.       "Eine leere, nicht schreibgeschtzte Diskette als Zieldiskette "
  45.       "in das Laufwerk DF0 einlegen und auf \"Fortfahren\" klicken.\n\n"
  46.  
  47.       "Nach Aufforderung die Quelldiskette (d. h. \"DPaintV_Installation\") "
  48.       "in ein beliebiges Laufwerk (auáer DF0) einlegen\n\n"
  49.    )
  50. )
  51.  
  52. (set format_help
  53.    (cat
  54.       format_msg
  55.  
  56.       "Vorsicht: S„mtliche Daten auf der eingelegten, nicht schreibgeschtzten "
  57.       "Diskette werden gel”scht!\n\n"
  58.  
  59.       "Vergewissern Sie sich, daá die Original-DeluxePaint-V-"
  60.       "Quelldisketten schreibgeschtzt sind, bevor Sie fortfahren!"
  61.    )
  62. )
  63.  
  64.  
  65. ; --------------------------------------------------------------------
  66. ; format_disk:
  67. ;   standard floppy format procedure.
  68. ;   if an error occurs during the format, a message will be put up
  69. ;   and the user re-prompted.
  70. ;
  71. ; inputs:
  72. ;   <DstDiskName> : The name to use when formatting the disk.
  73. ;
  74. ; outputs:
  75. ;   <fmt_error>  will be set to 0 if disk was formatted successfully,
  76. ;                or some value <= RC_WARN if the user cancelled the format.
  77. ;
  78. (procedure format_disk
  79.    (run "echo >ram:newline <nil: \"\"")
  80.    (run ("assign \"%s\" remove" (cat DstDisName ":")))
  81.    (user expert_user_level)
  82.    (set fmt_error RC_FATAL)
  83.    (until (<= fmt_error RC_WARN)
  84.      ((set fmt_error
  85.            (run  ("sys:system/format DRIVE DF0: NAME \"%s\" FFS NOICONS >NIL: <ram:newline" DstDiskName)
  86.                  (help format_help)
  87.                  (prompt (cat ("Erstellen der Diskette \"%s\"...\n\n" DstDiskName) format_msg))
  88.                  (confirm)
  89.                  )
  90.             )
  91.        (transcript "format_result = " fmt_error)
  92.        (if (> fmt_error RC_WARN)
  93.            (message ("Fehler beim Formatieren der Diskette \"%s\"" DstDiskName)))
  94.        
  95.        ))
  96.     (user orig_user_level)
  97.     (delete ram:newline)
  98. )
  99.  
  100.  
  101.  
  102. ; --------------------------------------------------------------------
  103. (procedure setup_floppy_install
  104.   (user expert_user_level)
  105.   (message "Fr die vollst„ndige Installation auf Disketten sind 4 "
  106.            "Leerdisketten erforderlich. Bitte halten Sie die Disketten bereit.\n\n"
  107.  
  108.            "Vorsicht: Bei dieser Installation wird vorausgesetzt, daá "
  109.            "mindestens zwei Diskettenlaufwerke vorhanden sind."
  110.            )
  111.   (user orig_user_level)
  112. )
  113.  
  114. ; --------------------------------------------------------------------
  115. (procedure setup_hd_install
  116.    (message 
  117.       "\nDeluxePaint V wird in einer neuen Schublade mit dem Namen "
  118.       "\"DPaintV\" installiert. Sie werden aufgefordert, fr die Schublade einen "
  119.       "Speicherort auf der Festplatte (oder einem Speicherger„t) anzugeben.")
  120.  
  121.    (set app_locate
  122.       (askdir
  123.          (prompt "Geben Sie an, wo die DPaintV-Schublade erstellt "
  124.                  "werden soll.")
  125.          (help @askdir-help)
  126.          (default @default-dest)
  127.          ))
  128.  
  129.  
  130.    (set app_path (tackon app_locate "DPaintV"))
  131.    (makedir app_path (infos))
  132. )
  133.  
  134.  
  135.  
  136. ; --------------------------------------------------------------------
  137. ; copy_volume1 
  138. ;    copies files from <app_volume1> into the user's preselected 
  139. ;    destination directory. If we're doing a <hd_install> this procedure
  140. ;    assumes <app_path> has already been set.  If we're doing a 
  141. ;    floppy install, the files will be copied to the newly formatted
  142. ;    'DPaintV' disk.
  143. ;
  144. ;    if either dpaint or dplayer are installed and catalogs directory
  145. ;    will be created. This assumes that app_volume1 contains an empty
  146. ;    catalogs directory and that the user will be prompted for language
  147. ;    installation later.
  148. ;
  149. (procedure copy_volume1
  150.   (complete 5)
  151.   (set program_options 
  152.       (askoptions
  153.          (prompt "Welche Anwendungen m”chten Sie installieren?")
  154.          (choices "DPaint" "DPlayer")
  155.          (help  "  DPaint - installiert DPaint und die erforderlichen Zusatzdateien\n"
  156.                 "  DPlayer - installiert DPaint Player \n\n"
  157.                 @askoptions-help)
  158.          )
  159.       )
  160.   (if (not hd_install)
  161.       ((set DstDiskName "DPaintV")
  162.        (set app_path    (cat DstDiskName ":"))
  163.        (if program_options
  164.            ((format_disk) 
  165.             (if fmt_error (set program_options 0))))))
  166.   (if (bitand INSTF_DPAINT program_options)
  167.       (copyfiles
  168.          (prompt "Kopieren von DPaint und der Zusatzdateien ...")
  169.          (source app_volume1)
  170.          (dest   app_path)
  171.          (choices "DPaint" "Libs" "Fonts")
  172.          (help @copyfiles-help)
  173.          (infos)
  174.          (fonts)
  175.          ))
  176.   (complete 10)
  177.   (if (bitand INSTF_DPLAYER program_options)
  178.       (copyfiles
  179.          (prompt "Kopieren von DPlayer ...")
  180.          (source app_volume1)
  181.          (dest   app_path)
  182.          (choices "DPlayer")
  183.          (infos)
  184.          (help @copyfiles-help)
  185.          ))
  186.   (set @default-dest app_path)
  187. )
  188.  
  189. ; --------------------------------------------------------------------
  190. (procedure copy_dir
  191.   (copyfiles 
  192.       (prompt  ("Kopieren von \"%s\" ..." app_dir))
  193.       (source  app_volume)
  194.       (dest    app_path)
  195.       (choices app_dir)
  196.       (help    @copyfiles-help)
  197.       (infos)
  198.       (fonts)
  199.       (optional)
  200.       )
  201. )
  202.  
  203. ; --------------------------------------------------------------------
  204. ; copy_volume2 
  205. ;    copies files from <app_volume2> into the user's preselected 
  206. ;    destination directory. If we're doing a <hd_install> this procedure
  207. ;    assumes <app_path> has already been set.  If we're doing a 
  208. ;    floppy install, the files will be copied to the newly formatted
  209. ;    <app_disk2> disk.
  210. ;
  211. (procedure copy_volume2
  212.   (complete 15)
  213.   (set options 
  214.       (askoptions 
  215.           (prompt "Welche der folgenden Verzeichnisse m”chten Sie installieren?")
  216.           (choices "Material" "Strukturen" "Muster" "Pinsel" "Bewegung" "Farben")
  217.           (help "  Material  - Beispiele fr Materialien (Kreide, ™lfarbe usw.)\n"
  218.                 "  Strukturen - Beispiele fr Papierstrukturen\n"
  219.                 "  Muster    - Beispiele fr Fllmuster\n"
  220.                 "  Pinsel    - Beispiele fr Pinsel\n"
  221.                 "  Bewegung  - Beispiele fr Bewegungsabl„ufe\n"
  222.                 "  Farben    - Beispiele fr Farben/Paletten\n"
  223.                 "\n"
  224.                 @askoptions-help)
  225.           )
  226.       )
  227.   (if options
  228.       (if (not hd_install)
  229.           ((set DstDiskName app_disk2)
  230.            (set app_path (cat DstDiskName ":"))
  231.            (format_disk)
  232.            (if fmt_error (set options 0)))))
  233.   (set app_volume app_volume2)
  234.   (if (bitand 1 options)
  235.       ((set app_dir "Media") (copy_dir)))
  236.   (complete 20)
  237.   (if (bitand 2 options)
  238.       ((set app_dir "Textures") (copy_dir)))
  239.   (complete 25)
  240.   (if (bitand 4 options)
  241.       ((set app_dir "Patterns") (copy_dir)))
  242.   (complete 30)
  243.   (if (bitand 8 options)
  244.       ((set app_dir "Brush") (copy_dir)))
  245.   (complete 35)
  246.   (if (bitand 16 options)
  247.       ((set app_dir "Move") (copy_dir)))
  248.   (complete 40)
  249.   (if (bitand 32 options)
  250.       ((set app_dir "Colours") (copy_dir)))
  251. )
  252.  
  253.  
  254. ; --------------------------------------------------------------------
  255. ; copy_volume3 
  256. ;    copies files from <app_volume3> into the user's preselected 
  257. ;    destination directory. If we're doing a <hd_install> this procedure
  258. ;    assumes <app_path> has already been set.  If we're doing a 
  259. ;    floppy install, the files will be copied to the newly formatted
  260. ;    <app_disk3> disk.
  261. ;
  262. (procedure copy_volume3
  263.   (complete 45)
  264.   (set options 
  265.       (askoptions 
  266.           (prompt "Welche der folgenden Verzeichnisse m”chten Sie installieren?")
  267.           (choices "Grafik" "Anims" "AnimPinsel" "Karafonts")
  268.           (help "  Grafik     - Beispielgrafiken \n"
  269.                 "  Anims      - Beispielanimationen\n"
  270.                 "  AnimPinsel - Beispiele fr AnimPinsel\n"
  271.                 "  Karafonts  - Beispiele fr farbige Schriften\n"
  272.                 "\n"
  273.                 @askoptions-help)
  274.           )
  275.       )
  276.   (if options
  277.       (if (not hd_install)
  278.           ((set DstDiskName app_disk3)
  279.            (set app_path (cat DstDiskName ":"))
  280.            (format_disk)
  281.            (if fmt_error (set options 0)))))
  282.   (set app_volume app_volume3)
  283.   (if (bitand 1 options)
  284.       ((set app_dir "Picture") (copy_dir)))
  285.   (complete 50)
  286.   (if (bitand 2 options)
  287.       ((set app_dir "Anim") (copy_dir)))
  288.   (complete 55)
  289.   (if (bitand 4 options)
  290.       ((set app_dir "Animbrush") (copy_dir)))
  291.   (complete 60)
  292.   (if (bitand 8 options)
  293.       ((set app_dir "Karafonts") (copy_dir)))
  294. )
  295.  
  296. ; --------------------------------------------------------------------
  297. ; do_register
  298. ;   asks the user if he/she wishs to run and register their
  299. ;   copy of dpaint now. if the answer is yes, launches the program...
  300. ;
  301. (procedure do_register
  302.   (working "DeluxePaint V wird ausgefhrt ...")
  303.   (run ("run >NIL: <NIL: \"%s\"" (tackon @default-dest "DPaint"))
  304.        (prompt "Wollen Sie Ihr DeluxePaint-V-Programm jetzt registrieren?")
  305.        (help "DeluxePaint V muá beim ersten Starten registriert werden. Wenn Sie "
  306.              "\"Fortfahren\" w„hlen, startet das Installationsprogramm DeluxePaint V, "
  307.              "und die Registrierdaten k”nnen direkt eingegeben werden. Halten Sie "
  308.              "Ihre Registrierkarte bereit. Wenn Sie \"šberspringen\" w„hlen, k”nnen "
  309.              "Sie das Programm zu einem anderen Zeitpunkt aufrufen und registrieren."
  310.              )
  311.        (confirm)
  312.        )
  313. )
  314.  
  315. ; --------------------------------------------------------------------
  316. ; update_asl:
  317. ;   updates asl.library to v38; asks expert users for confirmation.
  318. ;
  319. ;                             WARNING
  320. ;   The installer WILL COPY the supplied library over the user's
  321. ;   current library WITHOUT REGARD to the current library's version
  322. ;   number!!! This procedure should NOT be called if the library
  323. ;   version is v38 or better.
  324. ; 
  325. (procedure update_asl
  326.   (working "Prfen der Versionsnummer von \"asl.library\" ...")
  327.   (copylib (prompt "Aktualisieren von \"asl.library\" ...")
  328.            (help "Fr  DeluxePaint V ben”tigen Sie \"asl.library\" "
  329.                  "Version 38 (oder h”her). Die Bibliothek sollte nur "
  330.                  "dann aktualisiert werden, wenn sie nicht in der fr"
  331.                  "DeluxePaint V erforderlichen Mindestversion vorliegt.\n\n"
  332.                  @copylib-help
  333.                  )
  334.            (source (tackon app_volume4 "v38_libs/asl.library"))
  335.            (dest "libs:")
  336.            (confirm))
  337. )
  338.  
  339.  
  340. ; --------------------------------------------------------------------
  341. ; copy_volume4
  342. ;    copies files from <app_volume4> into the user's preselected 
  343. ;    destination directory. If we're doing a <hd_install> this procedure
  344. ;    assumes <app_path> has already been set.  If we're doing a 
  345. ;    floppy install, the files will be copied to the newly formatted
  346. ;    <app_disk4> disk.
  347. ;
  348. ;    Updates the asl.library if necessary.
  349. ;
  350. (procedure copy_volume4
  351.   (complete 65)
  352.   (set options 
  353.       (askoptions 
  354.           (prompt "Welche der folgenden Verzeichnisse m”chten Sie installieren?")
  355.           (choices "Galerie" "Makros" "AA_Grafik" "Piktogramme")
  356.           (help  "  Galerie     - Galerie-Grafiken \n"
  357.                  "  Makros      - Beispiele fr ARexx-Makros\n"
  358.                  "  AA_Grafik   - Beispiele fr AA-Grafiken \n"
  359.                  "  Piktogramme - Beispiele fr Piktogrammdateien\n"
  360.                  "\n"
  361.                  @askoptions-help)
  362.           )
  363.       )
  364.   (if options
  365.       (if (not hd_install)
  366.           ((set DstDiskName app_disk4)
  367.            (set app_path (cat DstDiskName ":"))
  368.            (format_disk)
  369.            (if fmt_error (set options 0)))))
  370.   (set app_volume app_volume4)
  371.   (complete 70)
  372.   (if (bitand 1 options)
  373.       ((set app_dir "Gallery") (copy_dir)))
  374.   (complete 75)
  375.   (if (bitand 2 options)
  376.       ((set app_dir "Macros") (copy_dir)))
  377.   (complete 80)
  378.   (if (bitand 4 options)
  379.       ((set app_dir "AGA_Art") (copy_dir)))
  380.   (complete 85)
  381.   (if (bitand 8 options)
  382.       ((set app_dir "Icons") (copy_dir)))
  383.   (complete 90)
  384.  
  385.   (set asl_version (/ (getversion "libs:asl.library") 65535))
  386.   (transcript "asl_version = " asl_version)
  387.   (if (< asl_version 38)
  388.       (update_asl))
  389.   
  390. )
  391.  
  392. ; --------------------------------------------------------------------
  393. ; do_exit
  394. ;   does the language installation
  395. ;   does the program registrations if requested
  396. ;   puts up regcard reminder and says thanks...
  397. ;
  398. (procedure do_exit
  399.   (complete 95)
  400.   (set options 
  401.       (askoptions 
  402.           (prompt "Welchen Sprachkatalog m”chten Sie installieren?")
  403.           (choices "Fran‡ais" "Deutsch")
  404.           (help  "Fran‡ais - installiert die franz”sischen Kataloge in DPaintV:Catalogs/Fran‡ais\n\n"
  405.                  "Deutsch  - installiert die deutschen Kataloge in DPaintV:Catalogs/Deutsch\n\n"
  406.                  @askoptions-help)
  407.           )
  408.       )
  409.   (set app_volume (tackon app_volume4 "Catalogs"))
  410.   (set app_path   (tackon @default-dest "Catalogs"))
  411.   (if (bitand 1 options)
  412.       ((set app_dir "Fran‡ais") (copy_dir)))
  413.   (if (bitand 2 options)
  414.       ((set app_dir "Deutsch") (copy_dir)))
  415.  
  416.   (complete 98)
  417.   (if hd_install
  418.       (startup @app-name
  419.          (prompt "\nSoll die Zuweisung DPaintV: dem S:User-Startup hinzugefgt werden?")
  420.          (help   "Alle von DeluxePaintV erstellten Piktogramme verwenden "
  421.                  "standardm„áig DPaintV:DPaint. Wenn die obige Zuweisung der "
  422.                  "Startdatei hinzugefgt wird, starten die Dateien beim Doppelklicken "
  423.                  "automatisch DeluxePaint V.\n\n"
  424.  
  425.                  @startup-help
  426.                  )
  427.          (command ("Assign DPaintV: \"%s\" defer" @default-dest))
  428.          ))
  429.  
  430.   (if hd_install
  431.       (run ("assign DPaintV: \"%s\"" @default-dest)
  432.            (prompt ("\Soll DPaintV: \"%s\" jetzt zugewiesen werden?" @default-dest))
  433.            (help "DeluxePaint V sucht Grafiken, Pinsel und Strukturen "
  434.                  "standardm„áig nur in den Unterverzeichnissen der logischen "
  435.                  "Zuweisung \"DPaintV:\".\n\n"
  436.                  "Diese Zuweisung ist nur dann erforderlich, wenn "
  437.                  "Sie vorhaben, DeluxePaint V auszufhren, ehe Sie "
  438.                  "den Rechner unter Ausfhrung der Startdatei neustarten. "
  439.                  )
  440.            (confirm)))
  441.              
  442.   (complete 99)
  443.   (do_register)
  444.  
  445.   (complete 100)
  446.   (user expert_user_level)
  447.   (message "\nDenken Sie daran, m”glichst bald Ihre DeluxePaint-V- "
  448.            "Registrierkarte auszufllen und einzusenden.\n\n"
  449.  
  450.            "Vielen Dank fr den Kauf von DeluxePaint V!"
  451.            )
  452.   (exit)
  453. )
  454.  
  455.  
  456. ; --------------------------------------------------------------------
  457. ;                   This is the actual Install Script
  458. ; --------------------------------------------------------------------
  459. ;
  460. ; tell the user that DPaintV requires AmigaDos 2.04
  461. ;
  462. (if (< AmigaDos_Version 37)
  463.     (
  464.       (abort
  465.          "DeluxePaint V ist unter dieser AmigaDOS-Version nicht ausfhrbar. "
  466.          "DeluxePaint V erfordert mindestens AmigaDOS 2.04."
  467.          )
  468.     )
  469. )
  470. ;
  471. ; ask the user if this is a floppy or harddisk installation
  472. ; and set the value of <hd_install>
  473. ;
  474. (user expert_user_level)
  475. (set hd_install 
  476.    (= 0
  477.      (askchoice
  478.            (prompt "\nInstallationsmethode w„hlen:")
  479.            (help
  480.                "DeluxePaint V muá vor dem Einsatz registriert werden. Dies kann "
  481.                "w„hrend der Installation des Programms auf der Festplatte (oder einem "
  482.                "anderen Speicherger„t) erfolgen oder auf einer Kopie der DeluxePaint-V-"
  483.                "Diskette durchgefhrt werden.\n"
  484.                "  \"Festplatte\" w„hlen, um DeluxePaint V auf der Festplatte zu installieren.\n"
  485.                "  \"Diskette\" w„hlen, um DeluxePaint V auf einer Diskette zu installieren.\n"
  486.                "\n"
  487.                @askchoice-help
  488.                )
  489.            (choices "Festplatte" "Diskette")
  490.            (default 0)
  491.            )
  492.       )
  493. )
  494. (user orig_user_level)
  495.  
  496. (if hd_install
  497.     (setup_hd_install)
  498.     (setup_floppy_install))
  499.  
  500. (copy_volume1)
  501. (copy_volume2)
  502. (copy_volume3)
  503. (copy_volume4)
  504. (do_exit)
  505.  
  506.